Shareware Overload Trio 2

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir43 / sac.zip / FOXPRO.ZIP / SAC.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1994-06-14 | 31KB | 553 lines

2.0Fl FOXUSER.DBF FOXUSER.DBF GIF7@ DEBUG RUNTIMEFFlj EXEFFlj ANSIFF RECALL DEBUG CHR(27)+"@" CHR(27)+"P" CHR(27)+"M" CHR(27)+CHR(15) CHR(27)+CHR(69) CHR(27)+CHR(70) CHR(27)+CHR(45)+CHR(1) CHR(27)+CHR(45)+CHR(0) SAC.DOT 333333 AMERICAN SET PATH TO &cPROGPATH SCRPROC SACUTA SACSYS DO FOXERR WITH ERROR(), MESSAGE(), MESSAGE(1), PROGRAM(), LINENO(), SYS(16) DEFAULT FONTNAME FONTSTYLE FONTSIZE SCHEME MODIFY WINDOW SCREEN TITLE "Foxpro for Macintosh" &cFONTS MODIFY WINDOW SCREEN TITLE "Foxpro for Windows" &cFONTS FOXDEF DEFAULT8 \<Burham Calculator ALT+B ALT+B DO SACUT3 WITH .T. The system date has not been set. Use the operating system DATE command to set today's date. At the operating system prompt, type a command of the form: DATE 07.07.87 ... and press the RETURN key, which may be marked ENTER or . The above command would set the date to July 7, 1987. Once you have done this you can run this program again. Press any key to return to the operating system . . . Diskspace too small for application... Press any key to return to the operating system . . . Warning: Your CONFIG.SYS should have a FILES=65 (45 minimum) Proceed at your own risk... Press any key to continue, [Esc] to return to the operating system . . . RESOURCEz No resource file available. It may be in use or may not exist. Check your SET FOXPROCFG= and/or -C commands. Also check your RESOURCE = command in your CONFIG.FP... Press any key to return to the operating system . . . Warning: This application is over three months old, and is likely out of date. Read the file REGISTER.DOC to learn how to obtain a registered copy. Press any key to continue using this application . . . Please remember to exit this application before turning off the computer... Press any key to continue . . . Multi-user SAC Database, Version 02.07.01 (c) 1987 Dennis Allen, All rights reserved SACSYS SACSYS6 SACSYS SACSYS7 SACSYS SACSYS8 DO FOXERR WITH ERROR(), MESSAGE(), MESSAGE(1), PROGRAM(), LINENO(), SYS(16) DO INS ALT+O DO OBJLOCK ALT+V DO VIDEO DO FLD_HELP WITH IIF(nLEVEL>0,cWINDOW(nLEVEL),""), 0 DO EJECT KEYBOARD CHR(23) ALT+D DO DEBUGGER WITH PROGRAM(), LINENO() ALT+E DO FOXERR WITH 0, "Log Entry", MESSAGE(1), PROGRAM(), LINENO(), SYS(16) ALT+F4 DO LOAD_CALC CTRL+F4 DO SET_CALC ALT+F5 DO LOAD_CALR CTRL+F5 DO SET_CALR ALT+F KEYBOARD "GFQ" ALT+L KEYBOARD "GLQ" ALT+N KEYBOARD "GNQ" ALT+P KEYBOARD "GPQ" ALT+T KEYBOARD "{CTRL-T}Y" M A I N M E N U [\<E] - Edit SAC Databases [\<P] - Print SAC Databases [\<S] - System Setup (Query) [\<U] - Utilities [\<M] - Change Status (F Multi Single8 -user) [\<Q] - Quit this program EPSUMQ Are you Sure (Y or N) ? CPATH_SEP CDRIV_SEP CFOXUSER FNPATH CMEMPATH FNGETENV CDATAPATH CPROGPATH CTEMPPATH CGIFPATH BMULT BDEBUG BANSI BINIT BRECALL CWINDOW NWINDOW NLEVEL NSTART BLOCATE BNO_CDX BEXACT BNO_INT BUNIQUE CFONT CSTYLE NMEMOWIDTHNFONT NSCHEME NTO_READ CBROWSE CINDEX CFILTER CPR_NAME CPR_PRN CPR_DEF CPR_10 CPR_12 CPR_CON CPR_BON CPR_BOFF CPR_UON CPR_UOFF NPR_MAX NPR_SW BPR_DRAFT CPR_GIF CPR_WFW BPR_SS NPR_SS NPR_SSB NPR_SSD NPR_SSH NPR_SSL NPR_SST NPR_SSW NPR_LAT NPR_LON NPR_ZONE BPR_DAYLIGNPR_EPOCH PDPARNLON NZONE BDAYLIGHT NEPOCH LIGAMERICAN SCRPROC THCMASTER CREINDEX CSYSTEM COLORSET SYSM_DOS TCFONTS FNFONTS SYSM_WIN FNFILE FOXUSER UPDATED CDBL_NAME CLUN_NAME COBJ_NAME CSAC_NAME CVBL_NAME SAC_UP SHOW_GIF SACSYS6 SACSYS WINDOW AGESACSYS7 SACSYS8 topic _DIALOG _THERM @SET_VIEW CCHOICES NCOL GET CCHOICE FNCHOICE SACED SACPR SACUT amYESNO cFILEf fnADIR Select a file Press [Enter] to accept Press [Esc] to abort fnADIR CPATH CFILE WINDOW FNPOPKEY cMACROf cAKA_NO = &cMACRO 0123456789 OBJECT STORE cAKA_NO TO &cMACRO BROWSE Browse SAC Database CLOSE GROW ZOOM SYSTEM ENTER KEYBOARD CHR(23) ENTER BROWSE OBJECT CMACRO BFOUND CAKA_NO CTEMP BDISPLAY WINDOW ENTER BROWSE FNLASTKEY OBJECT OTHER fnBURHAM Convert Burham Coordinates Convert Epoch 1950 to F coordinates... Press [ESC] to return to main menu... Press [Enter] to continue... N Burham RA & Dec 99999n9999 99999!9999 Must be "N" or "S" fnBURHAM Right Ascension HH.mmss F 99.9999c Declination DD.mmss F 999.9999c Right Ascension HH.mmss F 99.9999c Change HH.mmss F 999.9999c Declination DD.mmss F 999.9999c Change DD.mmss F 999.9999c U2000 F Tirion F fnBURHAM 99.9999 999.9999 BDISPLAY CBURHAM NDEC_ WINDOW NEPOCH EPOCH FNU2000 FNTIRION U2000 TIRION FNCONV L.S.T.: Azimuth (DDD.MMSS): 999.9999 Altitude (DDD.MMSS): 999.9999 CTIME DDATE AL_AZ FNFILE FNGIF _GETENVf cMEMPATHf FOXPRO.INI GETENVF _GETENVf CGETENV BGETENV CRETURN NFILE NTEMP CMEMPATH _GETENV M->OBJECTf M->OTHERf M->NAMEf M->STARf M->SKY_TELf Enter file Name: Press [F1] for directory... File Not Found BPROMPT OBJECT OTHER SKY_TEL DIALOG CPR_GIF FNADIR CGIFPATH FNFILE CFILE_PATHFLD BFOUND CDRIV_SEP CPATH_SEP nDECf E_PATHNDEC NRA_1 NRA_2 NTIRION nDECf Vol I Vol II8 Vol I & II 333333 E_PATHNDEC NRA_1 NRA_2 NU2000 Astronomy, July 1988 Page 74 Press [Esc] to quit... Date: Time: 99:99:99 Latitude (DD.MM): 999.9999 Longitude (DD.MM): 999.9999 Time Zone #: Daylight Time (Y or N) Epoch Year: Press [Enter][Enter] for Az/Al prompts RA (HH.MMSS) : 99.9999 DEC (HH.MMSS) : 999.9999 AZIMUTH (DDD.MMSS): 999.9999 ALTITUDE (DDD.MMSS): 999.9999 AZIMUTH (DDD.MMSS): 999.9999 ALTITUDE (DDD.MMSS): 999.9999 RA (HH.MMSS) : 99.9999 DEC (HH.MMSS) : 999.9999 E_PATHNLAT NZONE THBDAYLIGHT NEPOCH DDATE CTIME DIALOG AL_AZ RA_DEC E_PATHNA1 NSIGN E_PATHNA1 NSIGN DDATE PATHNJ PATHl PERT PATHNY PERT PATHNY DDATE PATHCTIME PRECESS DDATE PATHNP CTIME PATHNTIME NZONE BDAYLIGHT PATHNS NEPOCH NUTATION HNLST ffffff PATHNAR DDATE HNEPOCH PATHNS HDCOS ffffff NOEPOCH THNEPOCH HNDEC NDEC_ DBLLOG DBLLOG DBLLOG LUNLOG LUNLOG LUNLOG OBJLOG OBJLOG OBJLOG SACLOG SACLOG SACLOG VBLLOG VBLLOG VBLLOG DBL,DBLLOG,LUN,LUNLOG,OBJ,OBJLOG,SAC,SACLOG,VBL,VBLLOG SET FILTER TO &cDBL IF .NOT. (&cDBL) SET FILTER TO &cLUN IF .NOT. (&cLUN) SET FILTER TO &cOBJ IF .NOT. (&cOBJ) SET FILTER TO &cSAC IF .NOT. (&cSAC) SET FILTER TO &cVBL IF .NOT. (&cVBL) Deep Sky Filter is Double Star Filter is Variable Star Filter is Lunar Object Filter is Celestial Object Filter is BFILTER THCDBL CDBL_NAME CLUN_NAME COBJ_NAME CSAC_NAME CVBL_NAME CDATAPATH APATH DBLLOG APATH LUNLOG APATH OBJLOG APATH SACLOG APATH VBLLOG DBCLOSE CBROWSE CINDEX CFILTER _NAME EPSONGIF HPLJGIF HPPJGIF Printer not Defined /FILE: Cannot print file (probably interlaced)... COPY /B THCFILE CTEMP CTEMP1 FNFILE NPR_SS PLSWAIT CPROGPATH NPR_SSB BPR_SS NPR_SSD NPR_SSL NPR_SST NPR_SSW NPR_SSH COMMAND FNPRINT CPR_PRN cGIFf SHOWGIF.BIN SHOWGIF.BIN not found TEXTMODE.BIN TEXTMODE.BIN not found SHOWGIF TEXTMODE bLOADf TEXTMODE SHOWGIF File not Found bLOADf SHOWGIF.BIN not found SHOWGIF TEXTMODE SHOWGIF.EXE SHOWGIF.EXE not found SHOWGIF THFNFILE CPROGPATH BLOAD TEXTMODE SHOWGIF RELEASE COMMAND FNADIR FNAKA PD_EX% FNBURHAM FNCONV FNFLAG FNGETENV FNGIF FNPATH FNTIRION FNU2000 MES~= STORE_MC FLAGALR#J LEANUP DATA2 PRECESS AL_AZ NUTATION RA_DEC EPOCH INITIAL PRINT_GIF SHOW_GIF D:\SKY\SAC\ SAC.FXP D:\SKY\SAC\SAC.PRG